home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 200
- Top = 114
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'Tray Icon'
- ClientHeight = 175
- ClientWidth = 289
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Default'
- Font.Style = []
- PopupMenu = PopupMenu1
- Position = poScreenCenter
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- object Image2: TImage
- Left = 82
- Top = 120
- Width = 33
- Height = 41
- Picture.Data = {<image000.ico>}
- end
- object Image1: TImage
- Left = 82
- Top = 64
- Width = 33
- Height = 41
- Picture.Data = {<image001.ico>}
- end
- object Label1: TLabel
- Left = 136
- Top = 72
- Width = 18
- Height = 13
- Caption = 'Tip:'
- end
- object Label2: TLabel
- Left = 136
- Top = 128
- Width = 18
- Height = 13
- Caption = 'Tip:'
- end
- object Button1: TButton
- Left = 203
- Top = 16
- Width = 75
- Height = 25
- Caption = '&Hide'
- Enabled = False
- TabOrder = 0
- OnClick = Button1Click
- end
- object CheckBox1: TCheckBox
- Left = 8
- Top = 16
- Width = 105
- Height = 17
- Caption = '&Place on tray'
- TabOrder = 1
- OnClick = CheckBox1Click
- end
- object RadioButton1: TRadioButton
- Left = 8
- Top = 72
- Width = 65
- Height = 17
- Caption = 'State &1'
- Checked = True
- TabOrder = 2
- TabStop = True
- OnClick = RadioButtonClick
- end
- object RadioButton2: TRadioButton
- Left = 8
- Top = 128
- Width = 65
- Height = 17
- Caption = 'State &2'
- TabOrder = 3
- OnClick = RadioButtonClick
- end
- object Edit1: TEdit
- Left = 159
- Top = 69
- Width = 121
- Height = 21
- TabOrder = 4
- Text = 'Off'
- OnKeyUp = EditKeyUp
- end
- object Edit2: TEdit
- Left = 159
- Top = 125
- Width = 121
- Height = 21
- TabOrder = 5
- Text = 'On'
- OnKeyUp = EditKeyUp
- end
- object PopupMenu1: TPopupMenu
- Left = 136
- Top = 16
- object Properties1: TMenuItem
- Caption = '&Properties'
- ShortCut = 0
- OnClick = Properties1Click
- end
- object ToggleState1: TMenuItem
- Caption = '&Toggle State'
- ShortCut = 0
- OnClick = ToggleState1Click
- end
- object Shutdown1: TMenuItem
- Caption = '&Shutdown'
- ShortCut = 0
- OnClick = Shutdown1Click
- end
- end
- end
-